home *** CD-ROM | disk | FTP | other *** search
/ Discover Planet Earth / EB.ISO / Data / 07-FormeMineraux.dxr / Internal_20_Preload next frame.ls < prev    next >
Encoding:
Text File  |  2005-02-02  |  688 b   |  28 lines

  1. on exitFrame me
  2.   global gFrameToGo, gFramePropertyList, gPlayedVideo, gDestinationId
  3.   cursor(4)
  4.   the idleLoadPeriod = 0
  5.   if gFrameToGo <> VOID then
  6.     list = gFramePropertyList[gFrameToGo]
  7.   end if
  8.   if list <> VOID then
  9.     if count(list) <> 0 then
  10.       repeat with i in list
  11.         if i.loaded = 0 then
  12.           preloadMember(member(i))
  13.           preloadMember(member(i))
  14.           if i.type = #bitmap then
  15.             if i.depth = 1 then
  16.               preloadMember(member(i.memberNum + 1, i.castLibNum))
  17.             end if
  18.           end if
  19.         end if
  20.       end repeat
  21.     end if
  22.     go(gFrameToGo)
  23.   else
  24.     preload(the frame + 1, the frame + 1)
  25.   end if
  26.   cursor(0)
  27. end
  28.